home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / rexx / MicroRexx203.lha / MicroRexx / Rexx / Number.rexx < prev    next >
OS/2 REXX Batch file  |  1998-08-07  |  281b  |  12 lines
  1. /* Number.rexx */
  2. options results
  3. address 'MicroRexx'
  4. 'OPENWIN' 0 0 640 200 '"A sample window"'  /* open window */
  5. w = result                                 /* store window handle */
  6. 'PRINT' w '"Enter a number: "'
  7. 'EDIT' w 10
  8. n = result
  9. 'REQUEST' "Number:" n "OKAY"
  10. 'CLOSEWIN' w
  11.  
  12.